home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADVHSC18.ZIP / EXAMPLE2.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-20  |  611b  |  26 lines
  1. Program HSCExample;
  2.  
  3. { Little Example To Show The Use Of The Antares HSC Player }
  4. { Coded By Access/ADV - 05/94 }
  5. { Modified By Access/ADV - 06/94 }
  6.  
  7. { Polling Version }
  8.  
  9. Uses Crt,ADVHSC;
  10.  
  11. Begin
  12. LOADSONG('MUSIC.HSC');  { Loading the Song Into Memory }
  13.  
  14. SetMode(1,1); { Turn Polling Mode On And Tell HSC To Call The Old Interrupt }
  15. PLAYSONG; { Play The Song }
  16.  
  17. Repeat
  18. POLLMUSIC;  { Call The Player To Do Some Music }
  19.             { Must Be Called At Least 18x By Second }
  20. Write('Press A Key... ');
  21. Delay(10);
  22. Until KeyPressed;
  23.  
  24. STOPSONG; { Stop The Player }
  25. CLEARMEM; { Free Memory }
  26. End.